home *** CD-ROM | disk | FTP | other *** search
/ Real Girls - Strip Poker / Real Girls Strip POker (Windows 95 CD-ROM).iso / _SETUP.1 / hide.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1998-07-30  |  770 b   |  46 lines
  1. on exitFrame
  2.   global bouncH, bouncV, dirH, dirV, ballSpeed
  3.   if bouncH > (640 - 18) then
  4.     set dirH to -ballSpeed
  5.   end if
  6.   if bouncV > (480 - 18) then
  7.     set dirV to -ballSpeed
  8.   end if
  9.   if bouncH < 18 then
  10.     set dirH to ballSpeed
  11.   end if
  12.   if bouncV < 18 then
  13.     set dirV to ballSpeed
  14.   end if
  15.   set bouncH to bouncH + dirH
  16.   set bouncV to bouncV + dirV
  17.   set the locH of sprite 1 to bouncH
  18.   set the locV of sprite 1 to bouncV
  19.   smallPause()
  20.   if the mouseDown then
  21.     tell the stage
  22.       closeHide()
  23.     end tell
  24.   end if
  25.   go(the frame)
  26. end
  27.  
  28. on smallPause
  29.   startTimer()
  30.   repeat while the timer < 1
  31.     nothing()
  32.   end repeat
  33. end
  34.  
  35. on mouseDown
  36.   tell the stage
  37.     closeHide()
  38.   end tell
  39. end
  40.  
  41. on keyDown
  42.   tell the stage
  43.     closeHide()
  44.   end tell
  45. end
  46.